unit ProcessHintForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore,
  dxSkinsDefaultPainters, cxLabel, cxProgressBar;

type
  TfrmProcessHintForm = class(TForm)
    img1: TImage;
    lblHint: TcxLabel;
    cxProgressBar1: TcxProgressBar;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetHint(sHint:string);
  end;

var
  frmProcessHintForm: TfrmProcessHintForm;

implementation

{$R *.dfm}

{ TfrmProcessHintForm }

procedure TfrmProcessHintForm.SetHint(sHint:string);
begin
  lblHint.Caption := sHint;
  Refresh;
  Self.BringToFront;
  //Application.ProcessMessages;
end;

end.

